CreateScreen


Purpose   Creates an empty virtual screen.

Decln.    CreateScreen(Page:byte;Lines:byte);

Remarks   Page is the screen number of the virtual screen.
          Lines is the number of lines (1..255) for the virtual screen. The
          Page number must be in the range 1 to Max_Screens.

          The virtual screen is created with a default display attribute of
          yellow on black. If the virtual screen already exists, the screen
          is cleared.

Example

BEGIN
    CREATESCREEN(3,25);
    ACTIVATE_VIRTUAL_SCREEN(3);
    ....
END;